(bw-get-tree): Don't integerp subtree if it's nil.

diff --git a/lisp/window.el b/lisp/window.el
index 2ae1a2c9e795a8ad4e54ccdf67e339f1968fc5d4..7810ba4c5be71c2338ae4c14b740e9b124f014ba 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -246,9 +246,10 @@ then the smallest tree containing that window is returned."
                 (windowp window-or-frame))
       (error "Not a frame or window: %s" window-or-frame)))
   (let ((subtree (bw-find-tree-sub window-or-frame)))
-    (if (integerp subtree)
-        nil
-      (bw-get-tree-1 subtree))))
+    (when subtree
+      (if (integerp subtree)
+         nil
+       (bw-get-tree-1 subtree)))))
 
 (defun bw-get-tree-1 (split)
   (if (windowp split)